Процедуры покадровой анимации

procedure BeginFrameBasedAnimation(Draw: procedure; frate: integer := 61);
        Начинает анимацию, основанную на кадре. Перед рисованием каждого кадра содержимое окна стирается, затем вызывается процедура Draw
procedure BeginFrameBasedAnimation(Draw: procedure(frame: integer); frate: integer := 61);
        Начинает анимацию, основанную на кадре Перед рисованием каждого кадра содержимое окна стирается, затем вызывается процедура Draw с параметром, равным номеру кадра
procedure EndFrameBasedAnimation;
        Завершает анимацию, основанную на кадре